home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / 1-bc-cad.zip / PLATE-EL.LSP < prev    next >
Text File  |  1992-05-11  |  660b  |  24 lines

  1. ;THIS FILE IS A PARAMETRIC PLATE DRAWER
  2. (defun c:PEL ()
  3.   (command)
  4.   (setq PIP (getpoint  "\nPICK INSERTION POINT: "))
  5.   (command)
  6.   (setq PW (getreal "\nPLATE WIDTH: "))
  7.   (command)
  8.   (setq PTH (getreal "\nPLATE THICKNESS: "))
  9.   (command)
  10.   (command "INSERT" "BOX" PIP PW PTH PAUSE)
  11.   (command)
  12.   (setq HP (getstring "\nWHAT HATCH PATTERN? ")) 
  13.   (command)
  14.   (setq SC (getint "\nWHAT SCALE? "))
  15.   (command)
  16.   (setq ANG (getangle  "\nWHAT ANGLE? "))
  17.   (command)
  18.   (command "HATCH" HP SC ANG "L" "") 
  19.   (command)
  20.   (setq SH (getint "\nINSERT STUD AT WHAT SCALE? "))
  21.   (command)
  22.   (command "INSERT" "6STUD" PAUSE SH SH PAUSE)
  23.   (prin1)
  24. )